From: Jim Blandy <jimb@redhat.com>
Date: Fri, 11 Jun 1993 10:29:55 +0000 (+0000)
Subject: * man.el (manual-entry): Recognize the subject(section) syntax.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95416
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d801ac097818c66c631ee870b9fbbc5263e0c2ef;p=emacs.git

* man.el (manual-entry): Recognize the subject(section) syntax.
---

diff --git a/lisp/man.el b/lisp/man.el
index 3b40ab02d06..26c3aa1400b 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -419,6 +419,13 @@ Universal argument ARG, is passed to Man-getpage-in-background."
 	 (if (string= default-entry "")
 	     (error "No man args given.")
 	   (setq man-args default-entry)))
+    ;; Recognize the subject(section) syntax.
+    (if (string-match "^[ \t]*\\([^( \t]+\\)[ \t]*(\\([^)]+\\))[ \t]*$"
+		      man-args)
+	(setq man-args
+	      (concat (substring man-args (match-beginning 2) (match-end 2))
+		      " "
+		      (substring man-args (match-beginning 1) (match-end 1)))))
     (if Man-downcase-section-letters-p
 	(setq man-args (Man-downcase man-args)))
     (Man-getpage-in-background man-args (consp arg))